home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr43
/
procal.zip
/
ECHO2_IT.CAL
next >
Wrap
Text File
|
1993-04-17
|
2KB
|
52 lines
;;; ECHO2_IT.CAL
;;; from INTELLIGENT TECHNOLOGIES c1992.
;;; Creates two echoes where the delay time between echoes is entered
;;; in ticks. Each echo's strength or velocity is calculated as a
;;; percentage entered by you. The MIDI channel of each of the echoes
;;; may also be set. You will find different MIDI channels useful if
;;; note durations of the original track cause echoes to overlap.
;;; Try adding panning controllers (PPONG_IT.CAL will create auto-pan
;;; controller events for you) once the CAL has been run to further
;;; enhance the echo effect. If more than 1 MIDI channel is used, and
;;; you have forced channels active on the main screen, you will want to
;;; either disable the forced MIDI channel on the front screen (have the
;;; channel appear as '---') or move the data assigned to other MIDI
;;; channels to other tracks.
;;;
; prolog ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(do
(int dt 60) ;user delay time in ticks
(int dt1 60)
(int nt 90) ;delay slope by percentage
(int ntt)
(int ch1 2) ;MIDI channel destination for 1st delay
(int ch2 3) ;MIDI channel destination for 2nd delay
(getInt dt "ECHO2: Enter Delay Time in Ticks " 1 480)
(= dt1 dt)
(*= dt1 2)
(getInt nt "ECHO2: Enter Repeat Level percentage " 1 99)
(getInt ch1 "Enter 1st Alternate Channel " 1 16)
(getInt ch2 "Enter 2nd Alternate Channel " 1 16)
(-- ch1 )
(-- ch2 )
)
; body
(if (== Event.Kind NOTE)
(do
(message "Copyright 1992 by ***Intelligent Technologies***")
(= ntt Note.Vel)
(*= ntt nt)
(/= ntt 100)
(insert (+ Event.Time dt) ch1 NOTE Note.Key ntt Note.Dur)
(*= ntt nt)
(/= ntt 100)
(insert (+ Event.Time dt1) ch2 NOTE Note.Key ntt Note.Dur)
)
NIL
)
; epilog
NIL